          SUBROUTINE (PASSER)
** Version# 4.0001[2] - 10/28/2014 - 02:29pm - TSMITH - eclipse
*** V4.0001 Change - Custom Coding 14 - 10/28/2014 - TSMITH - eclipse

          SCREEN


*          UT.SEC3 23,AUTH.OK,,YES
          AUTH.OK = YES
          IF AUTH.OK # YES THEN GOTO FINISH

          MENU.LOAD  2,4,5,1,'B'
          MENU.LOAD 10,4,4,1,'S'

          BR     = ''
          NOTIFY = ''
          PRINT @(11,1):BR

*-------------------------------------------------------------------------*
IN.BR:    INP.BR 11,1,10,BR,NAME,BRCHS,YES,YES
          IF QUIT THEN GOTO FINISH
          ON MOVE+1 GOTO IN.BR, IN.BR, IN.BR, IN.BR
*-------------------------------------------------------------------------*
IN.USER:  INP NOTIFY,11,2,10,V_"S:VERF.USER.ID"
          IF QUIT THEN GOTO FINISH
          ON MOVE+1 GOTO IN.USER, IN.USER, IN.BR, IN.USER, IN.USER, IN.USER
*-------------------------------------------------------------------------*
SUBS:     ON OPTION GOTO DOIT,SCHEDIT
          RETURN
*-------------------------------------------------------------------------*
SCHEDIT:  * Schedule the routine to run nightly
          DRPT$ = "Rental Periodic Billing"
          PH.SCHEDULE.GET DRPT$
          IF F12 THEN RETURN
          OPTION = 5
          PH.EXE 'RENTAL.PH.BILLING',BRCHS,NOTIFY
          RETURN TO FINISH
*-------------------------------------------------------------------------*
DOIT:     OPTION   = 2
          DRPT     = ""
          DRPT<27> = 'HOLD'
          DRPT$    = DRPT
          PH.EXE 'RENTAL.PH.BILLING',BRCHS,NOTIFY
          RETURN TO FINISH
*-------------------------------------------------------------------------*
FINISH:   WINDOW.CLOSE
          RETURN
!DONS~07/26/99~17:28



!TSMITH~10/28/14~14:29
